home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 12 / BBS in a box XII-2.iso / Files II / Hyper / U-Z / WindowsMenu 1.0.sit / WindowsMenu 1.0 / WindowsMenu / stack_-1.xml < prev    next >
Encoding:
Extensible Markup Language  |  1991-06-14  |  2.6 KB  |  20 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>1</cardCount>
  7.     <cardID>3026</cardID>
  8.     <listID>3827</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>416</width>
  14.         <height>240</height>
  15.     </cardSize>
  16.     <script>-- WindowsMenu v 1.0
  17. -- Copyright ¬© 1991
  18. -- Paul M. Lemieux
  19. -- 905 Union Street
  20. -- Cary, NC 27511
  21. -- GEnie: P.Lemieux2
  22. -- AOL: PaulLX
  23.  
  24. on openstack
  25. AddWindowsMenu
  26. pass openstack
  27. end openstack
  28.  
  29. on resume
  30. AddWindowsMenu
  31. pass resume
  32. end resume
  33.  
  34. on resumeSTack
  35. AddWindowsMenu
  36. pass resumeStack
  37. end resumeStack
  38.  
  39. on suspendStack
  40. if there is a menu "windows" then
  41. delete menu "windows"
  42. end if
  43. pass suspendStack
  44. end suspendStack
  45.  
  46. on closeStack
  47. if there is a menu "windows" then
  48. delete menu "windows"
  49. end if
  50. pass closeStack
  51. end closeStack
  52.  
  53. on shrinkit
  54. Global SaveRect
  55. put the rect of the card window into SaveRect
  56. -- if you don't like the size of the shrunk window, then change
  57. -- the paramters of the rectangle defined in the following line
  58. set the rect of the card window to 100,100,350,250
  59. end shrinkit
  60.  
  61. on AddWindowsMenu
  62. set cursor to watch
  63. if there is no menu "Windows" then
  64. create menu "Windows"
  65. end if
  66. put windowMenuItems() into menu "Windows" with menuMsg WindowMenuMsgs()
  67. end AddWindowsMenu
  68.  
  69. function windowMenuItems -- ‚àÜ
  70. global numberOfWindows,stackCSV
  71. -- get the list of open windows, rememgering that 1-8 are HC's
  72. -- internal windows, such as the message box
  73. set cursor to watch
  74. put empty into stackCSV
  75. put last item of line 8 of the windows after stackCSV
  76. repeat with counter = 9 to number of lines of the windows
  77. put ","&last item of line counter of the windows after stackCSV
  78. end repeat
  79. return "Shrink,-,"&stackCSV
  80. end windowMenuItems
  81.  
  82. on goScript theStackWindow
  83. if theStackWindow is in the windows then
  84. show window theStackWindow
  85. else
  86. go stack theStackWindow in new window
  87. end if
  88. end goScript
  89.  
  90. function WindowMenuMsgs
  91. -- this function needs to be called every time the list of
  92. -- windows changes.  That is why I trapped so many of the handlers
  93. -- that are called when the frontmost stack is changed.
  94. global numberOfWindows, stackCSV
  95. put empty into windowNavigate
  96. repeat with counter = 1 to number of items of stackCSV
  97. put ","&"goScript("&quote&item counter of stackCSV&quote&")" after windowNavigate
  98. end repeat
  99. return "shrinkit,"&windowNavigate
  100. end WindowMenuMsgs
  101. </script>
  102.     <background id="2757" file="background_2757.xml" name="" />
  103.     <card id="3026" file="card_3026.xml" marked="false" name="" owner="2757" />
  104. </stack>
  105.